﻿Public Class xtf_LISTADOtalonariorecibo_

    Public Overrides Sub IniciarLista()
        Try
            gdc_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Talonario Número")
            dtt_DataTable.Columns.Add("Número Desde")
            dtt_DataTable.Columns.Add("Número Hasta")
            dtt_DataTable.Columns.Add("Fecha Ingreso")
            dtt_DataTable.Columns.Add("Observaciones")

            gdv_general.PopulateColumns(dtt_DataTable)

            Dim obj_talonariorecibo_ As New cls_talonariorecibo_
            If obj_talonariorecibo_.CargarTodos(ObtenerRegistroEstado) Then
                For Each talonariorecibo As cls_talonariorecibo_ In obj_talonariorecibo_.Items
                    AgregarItem(talonariorecibo)
                Next
            End If
            'ulg_Lista.DataBind()

            FiltrarColumnas()
            gdc_general.EndUpdate()
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Function AgregarItem(ByRef talonariorecibo As cls_talonariorecibo_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow

        Row("Identificador (ID)") = talonariorecibo.idtalonariorecibo
        Row("Talonario Número") = talonariorecibo.numero
        Row("Número Desde") = talonariorecibo.desde
        Row("Número Hasta") = talonariorecibo.hasta
        Row("Fecha Ingreso") = talonariorecibo.ingreso
        Row("Observaciones") = talonariorecibo.observaciones

        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1).Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef talonariorecibo As cls_talonariorecibo_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = talonariorecibo.idtalonariorecibo
        ulg_row("Talonario Número") = talonariorecibo.numero
        ulg_row("Número Desde") = talonariorecibo.desde
        ulg_row("Número Hasta") = talonariorecibo.hasta
        ulg_row("Fecha Ingreso") = talonariorecibo.ingreso
        ulg_row("Observaciones") = talonariorecibo.observaciones
    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()
        PERMISONuevo = "004009002"
        PERMISOModificar = "004009003"
        PERMISOEliminar = "004009004"
        PERMISOImprimir = "004009005"
        Me.Text = lbl_modulo.Text : lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        IniciarLista()
        Me.Cursor = Cursors.Default

    End Sub

End Class